home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / luxury cubes < prev    next >
Text File  |  1999-06-15  |  708b  |  31 lines
  1. Category: kang
  2. Title: luxury Cubes
  3. Copyright: na
  4. Author: kangaroo@asan.com
  5. Filename: LUX-CUBE.8BF
  6.  
  7. R:put(((sin(x*ctl(0)*ctl(0)/Y)*cos(y*ctl(0)*ctl(1)/Y))*(255+c&dif(tan(x-val(2,5,50)^val(3,5,255)*x),tan(y+val(2,5,50)*y))))/V/80,1),c+put(get(1)*255/22/255-1,0),get(0)&256?560-ctl(5)-(get(0)&511):get(0)+c-111
  8.  
  9. G:c+put(get(1)*255/22/255-1,0),get(0)&256?560-ctl(6)-(get(0)&511):get(0)+c-111
  10.  
  11. B:c+put(get(1)*255/22/255-1,0),get(0)&256?560-ctl(7)-(get(0)&511):get(0)+c-111
  12.  
  13. A:a
  14.  
  15. ctl[0]: X-size
  16. ctl[1]: Y-size
  17. ctl[2]: pattern size
  18. ctl[3]: pattern flux
  19. ctl[5]: red-out
  20. ctl[6]: green-out
  21. ctl[7]: blue-out
  22.  
  23. val[0]: 31
  24. val[1]: 82
  25. val[2]: 85
  26. val[3]: 109
  27. val[5]: 215
  28. val[6]: 30
  29. val[7]: 17
  30.  
  31.